home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / Bzoom.AMOS / Bzoom.amosSourceCode
Encoding:
AMOS Source Code  |  1995-08-23  |  324 b   |  12 lines
  1. Load Iff "dh1:Grafik/Dpaint/Picture/misc/Wiesel.iff",0
  2. Screen Open 1,320,256,32,0
  3. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  4. Get Palette 0
  5. Wait Vbl : Limit Mouse 
  6. Timer=1
  7. Do 
  8.   X=X Screen(X Mouse) : Y=Y Screen(Y Mouse)
  9.   Inc T : Extension_8_1520 0,X,Y,X+80,Y+32 To 1,0,0,$84
  10. '  Wait Vbl  
  11.   Home : Print(T*50)/Timer
  12. Loop